R Notebook

library(tidyverse)
library(rsdmx)
library(rio)
library(plotly)

write.csv(emissions_df,"emissions_df.csv")
write.csv(country_df,"country_df.csv",col.names=FALSE, row.names=FALSE)

Warning: attempt to set 'col.names' ignored

write.csv(sector_df,"sector_df.csv",col.names=FALSE, row.names=FALSE)

Warning: attempt to set 'col.names' ignored

# 10 countries with largest emissions, sector choice

sector<-"DTOTAL"

plot_ly(
  data = top_n(emissions_df%>%filter(IND==sector),10,obsValue),
  x = ~obsValue,
  y = ~COU,
  type = "bar"
)%>% 
layout(yaxis = list(title="Exporting country",categoryorder = "total ascending"),
       xaxis = list(title="Emissions embodied in exports (tonnes, millions)",tickformat= ".0f"),
       title="The 10 countries with the largest exported emissions",
       plot_bgcolor = "#e5ecf6")

NA
NA
NA

# 10 sectors with largest emissions, country choice

country<-"CHN"

fig <- plot_ly(
  data = top_n(emissions_df%>%filter(COU==country),10,obsValue),
  x = ~obsValue,
  y = ~IND,
  type = "bar"
)%>% 
layout(yaxis = list(title="Emitting sector",categoryorder = "total ascending"),
       xaxis = list(title="Emissions embodied in exports (tonnes, millions)",tickformat= ".0f"),
       title=paste0("The top 10 sectors with the largest exported emissions in ",country),
       plot_bgcolor = "#e5ecf6")

fig

NA